home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
win_u_z
/
wbt20a.zip
/
DOSPASTE.WBT
< prev
next >
Wrap
Text File
|
1991-01-07
|
578b
|
22 lines
; An Example of pasting data to a DOS window
; We will paste DIR and CHKDSK, PAUSE and EXIT to as DOS window
if !(WinConfig() & 32) then goto NOGO ; Check for 386 enhanced mode
cr=Strcat(num2char(13))
buffer="DIR %cr% CHKDSK %cr%"
clipput(buffer)
runicon("Command.com","")
WinActivate("COMMAND")
SendKey("! TW~") ;Sendkey to set "windowed" mode...not full screen
WinShow("COMMAND")
SendKey("! EP") ; SendKey Alt-Space Edit Paste
Exit
:NOGO
Message("Ooops!","Can only paste to DOS apps when in 386 enhanced mode")